home *** CD-ROM | disk | FTP | other *** search
/ FCE Gold Plus / GOLD.iso / pc / fscommand / Xtras / FileXtra4_test.dir / 00029_Script_Eject behavior < prev   
Text File  |  2002-12-20  |  515b  |  23 lines
  1. on mouseUp me
  2.   fxObj = xtra("FileXtra4").new()
  3.   if not(objectP(fxObj)) then
  4.     WriteInfo("*** Could not instantiate FileXtra4.  Is it in the Xtras folder? ***" & RETURN)
  5.     return
  6.   end if
  7.   
  8.   if the platform contains "Mac" then
  9.     volumeName = fxObj.fx_VolumeSelectDialog()
  10.   else
  11.     
  12.   end if
  13.   
  14.   if volumeName <> "" then
  15.     Alert "Volume returned is: " & volumeName
  16.     fxObj.fx_VolumeEject(volumeName)
  17.   else
  18.     alert "VolumeSelect dialog cancelled."
  19.   end if
  20.   
  21.   fxObj = 0
  22. end
  23.